home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64-128Toolkit / SS-TRACE.ARC / SS TRACE (.txt) < prev   
Encoding:
Commodore BASIC  |  2019-04-13  |  1.4 KB  |  36 lines
  1. 1 POKE53280,.:POKE53281,.:INPUT"[147]ENTER START ADDRESS";TEM$
  2. 2 TEM=VAL(TEM$):IFTEM>32767ANDTEM<40707THENF1%=1:GOTO4
  3. 3 IFTEM<49152ORTEM>52991THENRUN
  4. 4 AD=TEM
  5. 5 READA:IFA=256GOTO50
  6. 6 CK=CK+A
  7. 7 POKEAD,A:AD=AD+1:GOTO5
  8. 10 DATA 230,122,208,2,230,123,165,157,208,10,165,249
  9. 11 DATA 240,6,160,0,177,61,240,3,76,121,0,165
  10. 12 DATA 57,197,247,208,6,165,58,197,248,240,241,165
  11. 13 DATA 57,133,247,165,58,133,248,56,32,240,255,134
  12. 14 DATA 214,132,211,173,134,2,133,120,160,2,185,0
  13. 15 DATA 0,145,49,200,208,248,162,0,32,255,233,232
  14. 16 DATA 32,255,233,169,19,32,210,255,169,10,141,134
  15. 17 DATA 2,166,57,165,58,32,205,189,169,32,32,210
  16. 18 DATA 255,169,1,141,134,2,160,4,132,118,164,118
  17. 19 DATA 200,132,118,177,61,240,64,201,34,208,18,32
  18. 20 DATA 210,255,164,118,200,177,61,132,118,240,48,201
  19. 21 DATA 34,208,240,240,37,201,128,144,33,56,233,127
  20. 22 DATA 133,119,162,255,198,119,240,8,232,189,158,160
  21. 23 DATA 16,250,48,244,232,189,158,160,48,6,32,210
  22. 24 DATA 255,24,144,244,41,127,32,210,255,208,183,160
  23. 25 DATA 2,177,49,153,0,0,200,208,248,166,214,164
  24. 26 DATA 211,24,32,240,255,165,120,141,134,2,165,145
  25. 27 DATA 201,223,208,250,165,145,201,223,240,250,169,0
  26. 28 DATA 133,198,76,121,0,169,76,133,115,169,0,133
  27. 29 DATA 116,169,192,133,117,96,120,169,247,141,24,3
  28. 30 DATA 169,192,141,25,3,88,96,32,221,192,76,71
  29. 31 DATA 254,256
  30. 50 IFCK<>34948 THENPRINT"ERROR IN DATA STATEMENTS...."END
  31. 51 HI=INT(TEM/256):LO=TEM-(HI*256)
  32. 52 POKETEM+226,LO:POKETEM+230,HI:SYSTEM+221
  33. 53 IFF1%>.THENPOKE55,LO:POKE56,HI:CLR
  34. 54 PRINT"POKE [155] 249,1 [146] TRACE ON
  35. 55 [153]"POKE LIST 249,0 WAIT TRACE OFF":[162]
  36.